#! /bin/sh

set -x


# fourier finite difference
# note dz*nz=4500 to get to the bottom of the model
# vary the values of dz and nz as a test before running the full model
sumigffd < seismic3.su dx=12.5 dz=3 nz=1500 vfile=newvelxz.bin  > ffd.seismic.su

suximage < ffd.seismic.su wbox=750 hbox=550 perc=99 title="FFD Migration" f2=0 &

supsimage < ffd.seismic.su width=7.5 hbox=5.5 perc=99 title="FFD Migration" f2=0 > ffd.seismic.ps


exit 0
